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MTHSOSIGN DSIGN function 16-SEP-1984 01: AX/VMS Macro v04-00 Page 1 
vats gree 1o8e 1ide85 EMTMNTe caedariogicy.mar:1 2% ly 
1 - TITLE mwas len ; Double Precision Transfer of Sign 
§ IDENT /1-002/ 3: File: MTHDSIGN.MAR 
¢ g covcnncoecnconsscoeseqsonneesenecqensonecesnsonnnqseoesonesoneseenooseocese 
3* © 
5 ;* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
$ :* DIGITAL FQUIPHENT EORPORATION, MAYNARD, MASSACHUSETTS. : 
: 16 :* ALL RIGHTS RESERVED. e 
PY * 
00 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
09 13 z* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
13 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
00 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
900 15 ;* HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
900 1 z* TRANSFERRED. e 
7* * 
9000 18 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 , :* CORPORATION. * 
P+ i 
9000 é z* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
000 z* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. + 
0000 4 3 + 
0000 5 ;* + 
44 8 FRA AA AERA AAA A AERA AAA AAAAAAAAAAARAAAAAAEAEAAEAAAAAAAAAAAAAARAAAAAAAA eee 
0000 8: 
0000 9; FACILITY: MATH LIBRARY 
0000 0 ;+ 
0000 1 : ABSTRACT: 
0000 ; 3 This module contains routine MTHS$DSIGN: 
44 : Return argi with sign of arg2. 
000 4; 
0000 S$: 
0000 6 ;-- 
444 73 
000 8 : VERSION: 0 
44 9; 
900 Q ; HISTORY: 
000 13 
444 ¢ 3; AUTHOR 
0 : 
ae 
0 3 
000 $i : 
000 8; 
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Edit History for Version 0 of MTHSDSIGN 
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statement, update version number and 


opr" font y % JBS 16-NOV-78 
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.SBTTL DECLARATIONS 


INCLUDE FILES: 
oerr.mar 


EXTERNAL SYMBOLS: 
NONE 


MACROS: 
NONE 


PSECT DECLARATIONS: 
-PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 


EQUATED SYMBOLS: 
NONE 


OWN STORAGE: 
NONE 


ction as 19-3e- 138% 91:39:48 AX/VMS Macro V04-00 Page 
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ot 
; FUNCTIONAL DESCRIPTION: 
; Return the value of arg! with the sign of arg2. 


CALLING SEQUENCE 
Transfer_of_sign.wd.v = MTHSDSIGN (argi.rd.r, arg2.rd.r) 


INPUT PARAMETERS: 
The two input parameters are double-precision floating-point 
values and are call-by-reference. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 
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1 
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1 
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1 
1 
0 1 
1 
1 
1 
1 
: 
000 1 COMPLETION CODES: 
808 1 NONE 
00 1 
000 1 SIDE EFFECTS: 
i ; Reserved Operand exceptions can occur. 
000 1 
000 1 -- 
000 1 
B08 1 
O00 : -TITLE MTHSDSIGN DSIGN function 
0000 000 : -ENTRY MTHSDSIGN, “M<> 
50 04 8C 70 000 1 MOVD a4(AP), RO ; RO/R1 = argl 
09 «19 O06 : BLSS NEGARG ; branch if negative argl 
808 ! 3; argi is non-negative, check sign of arg2 
08 BC 73 000 1 TSTD a8 (AP) 
03 18 00 1 BGEQ EXIT ; exit if both args are positive 
00D 138 NEGATE: 
50 50 72 000d 1 MNEGD RO, RO 3; negate argl 
4 140 EXIT 
04 4 ' RET 
i : ; argi is negative, check sign of arg2 
11. 145 NEGARG: 
08 ac 73 7. 3 TSTD a8 (AP) ; of 
F 18 Ce | BGEQ NEGATE 3 negate argl if arg2 positive 
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' Psect synopsis ! 
pee eee eeecenreeeee + 


PSECT name Allocation PSECT No. Attributes 
. ABS. 90000000 ¢ 10.) 00 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 00000017 ¢ 23.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
$e eer eoe een seo esce ce eeeceeae = Sa 
: Performance indicators H 
Page faults CPU Time Elapsed Time 
Initialization 34 00:00:00.09 00:00:00.37 
Command processing 112 00:00:00.49 00:00:02.82 
ass 67 00:00:00.39 00:00:01.81 
Symbol table sort 0 e's Sb B 00:00:00.00 
Pass 2 40 00:00:00.3 00:00:01.86 
Symbol table output 2 00:00:00.02 00:00:00.02 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 259 00:00:01.36 00:00:06.90 


The working set Limit was 900 pages. : 

1453 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 4 non-local and 0 local symbols. 
151 source Lines were read in Pass 1, producing 10 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


tem www meme eee ee eee ee eee e ene + 
! Macro Library statistics H 
oeweceeeeecoeeeeeseoscececn 

Macro Library name Macros defined 

~$255$DUA28: CSYSLIBISTARLET.MLB;2 0 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHDSIGN/OBJ=OBJ$:MTHDSIGN MSRC$:MTHDSIGN/UPDATE=(ENHS:MTHDSIGN) 
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